# Plot the Risk Lookup Table

# plotColors <- heat.colors(11, alpha = 1)
N = 11
plotColors <- rainbow(N, s = 1, v = 1, start = 0, end = max(1,N - 1)/N, alpha = 1)
plot(RiskTable$RiskCost,RiskTable$RiskConf)
for (a in 1:dim(RiskTable$RiskCost)[2]) {
  lines(RiskTable$RiskCost[,a,],RiskTable$RiskConf[,a,],type="p",col=plotColors[a])
}
